Developer CD Series 1994 August: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / User Contributions / oodles-of-utils.sea / oodles-of-utils / NotInROM / +TextEdit.lisp < prev next >
MacBinary | 1992-02-13 | 2.3 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Thu Feb 13 16:13:12 1992, modified Thu Feb 13 16:13:12 1992, creator Common Lisp 2, type ASCII, 1646 bytes "+TextEdit.lisp" , at 0x6ee 442 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 2b 54 65 78 74 45 | 64 69 74 2e 6c 69 73 70 |..+TextE|dit.lisp|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 06 6e 00 | 00 01 ba a5 c0 8f e8 a5 |......n.|........|
|00000060| c0 8f e8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 90 cc 00 00 |........|........|
|00000080| 3b 3b 20 2d 2a 2d 20 70 | 61 63 6b 61 67 65 3a 20 |;; -*- p|ackage: |
|00000090| 4e 6f 74 49 6e 52 4f 4d | 20 2d 2a 2d 0d 3b 3b 3b |NotInROM| -*-.;;;|
|000000a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 0d 3b 3b 20 2b | 54 65 78 74 45 64 69 74 |;;;.;; +|TextEdit|
|000000f0| 2e 4c 69 73 70 0d 3b 3b | 0d 3b 3b 20 43 6f 70 79 |.Lisp.;;|.;; Copy|
|00000100| 72 69 67 68 74 20 a9 20 | 31 39 39 31 20 4e 6f 72 |right . |1991 Nor|
|00000110| 74 68 77 65 73 74 65 72 | 6e 20 55 6e 69 76 65 72 |thwester|n Univer|
|00000120| 73 69 74 79 20 49 6e 73 | 74 69 74 75 74 65 20 66 |sity Ins|titute f|
|00000130| 6f 72 20 74 68 65 20 4c | 65 61 72 6e 69 6e 67 20 |or the L|earning |
|00000140| 53 63 69 65 6e 63 65 73 | 0d 3b 3b 20 41 6c 6c 20 |Sciences|.;; All |
|00000150| 52 69 67 68 74 73 20 52 | 65 73 65 72 76 65 64 0d |Rights R|eserved.|
|00000160| 3b 3b 0d 3b 3b 20 61 75 | 74 68 6f 72 3a 20 4d 69 |;;.;; au|thor: Mi|
|00000170| 63 68 61 65 6c 20 53 2e | 20 45 6e 67 62 65 72 0d |chael S.| Engber.|
|00000180| 3b 3b 0d 3b 3b 20 50 72 | 6f 76 69 64 65 73 20 6d |;;.;; Pr|ovides m|
|00000190| 69 73 73 69 6e 67 20 54 | 65 78 74 45 64 69 74 20 |issing T|extEdit |
|000001a0| 52 6f 75 74 69 6e 65 73 | 0d 3b 3b 3b 3b 3b 3b 3b |Routines|.;;;;;;;|
|000001b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 0d |;;;;;;;;|;;;;;;;.|
|000001f0| 0d 28 65 76 61 6c 2d 77 | 68 65 6e 20 28 3a 63 6f |.(eval-w|hen (:co|
|00000200| 6d 70 69 6c 65 2d 74 6f | 70 6c 65 76 65 6c 20 3a |mpile-to|plevel :|
|00000210| 6c 6f 61 64 2d 74 6f 70 | 6c 65 76 65 6c 20 3a 65 |load-top|level :e|
|00000220| 78 65 63 75 74 65 29 0d | 20 20 28 72 65 71 75 69 |xecute).|  (requi|
|00000230| 72 65 20 20 20 20 3a 4e | 6f 74 49 6e 52 4f 4d 2d |re    :N|otInROM-|
|00000240| 75 29 0d 20 20 28 69 6e | 2d 70 61 63 6b 61 67 65 |u).  (in|-package|
|00000250| 20 3a 4e 6f 74 49 6e 52 | 4f 4d 29 29 0d 0d 3b 3b | :NotInR|OM))..;;|
|00000260| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002a0| 3b 3b 3b 3b 0d 0d 28 64 | 65 66 74 72 61 70 2d 4e |;;;;..(d|eftrap-N|
|000002b0| 6f 74 49 6e 52 4f 4d 20 | 5f 54 45 46 72 6f 6d 53 |otInROM |_TEFromS|
|000002c0| 63 72 61 70 20 3a 4f 53 | 45 72 72 20 28 29 0d 20 |crap :OS|Err (). |
|000002d0| 20 28 62 6c 6f 63 6b 20 | 65 78 69 74 0d 20 20 20 | (block |exit.   |
|000002e0| 20 28 72 6c 65 74 20 28 | 28 73 63 72 61 70 2d 6f | (rlet (|(scrap-o|
|000002f0| 66 66 73 65 74 5f 70 20 | 3a 6c 6f 6e 67 29 29 0d |ffset_p |:long)).|
|00000300| 20 20 20 20 20 20 28 6c | 65 74 20 28 28 73 63 72 |      (l|et ((scr|
|00000310| 61 70 2d 73 69 7a 65 20 | 28 23 5f 47 65 74 53 63 |ap-size |(#_GetSc|
|00000320| 72 61 70 20 28 25 6e 75 | 6c 6c 2d 70 74 72 29 20 |rap (%nu|ll-ptr) |
|00000330| 22 54 45 58 54 22 20 73 | 63 72 61 70 2d 6f 66 66 |"TEXT" s|crap-off|
|00000340| 73 65 74 5f 70 29 29 29 | 0d 20 20 20 20 20 20 20 |set_p)))|.       |
|00000350| 20 28 77 68 65 6e 20 28 | 6d 69 6e 75 73 70 20 73 | (when (|minusp s|
|00000360| 63 72 61 70 2d 73 69 7a | 65 29 20 20 28 72 65 74 |crap-siz|e)  (ret|
|00000370| 75 72 6e 2d 66 72 6f 6d | 20 65 78 69 74 20 73 63 |urn-from| exit sc|
|00000380| 72 61 70 2d 73 69 7a 65 | 29 29 0d 20 20 20 20 20 |rap-size|)).     |
|00000390| 20 20 20 28 77 68 65 6e | 20 28 3e 20 73 63 72 61 |   (when| (> scra|
|000003a0| 70 2d 73 69 7a 65 20 33 | 32 30 30 30 29 20 28 72 |p-size 3|2000) (r|
|000003b0| 65 74 75 72 6e 2d 66 72 | 6f 6d 20 65 78 69 74 20 |eturn-fr|om exit |
|000003c0| 23 24 74 65 53 63 72 61 | 70 53 69 7a 65 45 72 72 |#$teScra|pSizeErr|
|000003d0| 29 29 0d 20 20 20 20 20 | 20 20 20 28 77 69 74 68 |)).     |   (with|
|000003e0| 2d 6d 61 63 70 74 72 73 | 20 28 28 54 45 53 63 72 |-macptrs| ((TEScr|
|000003f0| 61 70 5f 68 20 28 25 67 | 65 74 2d 70 74 72 20 28 |ap_h (%g|et-ptr (|
|00000400| 25 69 6e 74 2d 74 6f 2d | 70 74 72 20 23 24 54 45 |%int-to-|ptr #$TE|
|00000410| 53 63 72 70 48 61 6e 64 | 6c 65 29 29 29 29 0d 20 |ScrpHand|le)))). |
|00000420| 20 20 20 20 20 20 20 20 | 20 28 6c 65 74 20 28 28 |        | (let ((|
|00000430| 65 63 6f 64 65 20 28 23 | 5f 47 65 74 53 63 72 61 |ecode (#|_GetScra|
|00000440| 70 20 54 45 53 63 72 61 | 70 5f 68 20 22 54 45 58 |p TEScra|p_h "TEX|
|00000450| 54 22 20 73 63 72 61 70 | 2d 6f 66 66 73 65 74 5f |T" scrap|-offset_|
|00000460| 70 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |p))).   |        |
|00000470| 20 28 77 68 65 6e 20 28 | 6d 69 6e 75 73 70 20 65 | (when (|minusp e|
|00000480| 63 6f 64 65 29 20 20 28 | 72 65 74 75 72 6e 2d 66 |code)  (|return-f|
|00000490| 72 6f 6d 20 65 78 69 74 | 20 65 63 6f 64 65 29 29 |rom exit| ecode))|
|000004a0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 28 25 70 |.       |     (%p|
|000004b0| 75 74 2d 77 6f 72 64 20 | 28 25 69 6e 74 2d 74 6f |ut-word |(%int-to|
|000004c0| 2d 70 74 72 20 23 24 54 | 45 53 63 72 70 4c 65 6e |-ptr #$T|EScrpLen|
|000004d0| 67 74 68 29 20 73 63 72 | 61 70 2d 73 69 7a 65 29 |gth) scr|ap-size)|
|000004e0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 23 24 6e |.       |     #$n|
|000004f0| 6f 45 72 72 29 29 29 29 | 29 29 0d 0d 28 64 65 66 |oErr))))|))..(def|
|00000500| 74 72 61 70 2d 4e 6f 74 | 49 6e 52 4f 4d 20 5f 54 |trap-Not|InROM _T|
|00000510| 45 54 6f 53 63 72 61 70 | 20 3a 4f 53 45 72 72 20 |EToScrap| :OSErr |
|00000520| 28 29 0d 20 20 28 77 69 | 74 68 2d 6d 61 63 70 74 |().  (wi|th-macpt|
|00000530| 72 73 20 28 28 54 45 53 | 63 72 61 70 5f 68 20 28 |rs ((TES|crap_h (|
|00000540| 25 67 65 74 2d 70 74 72 | 20 28 25 69 6e 74 2d 74 |%get-ptr| (%int-t|
|00000550| 6f 2d 70 74 72 20 23 24 | 54 45 53 63 72 70 48 61 |o-ptr #$|TEScrpHa|
|00000560| 6e 64 6c 65 29 29 29 29 | 0d 20 20 20 20 28 77 69 |ndle))))|.    (wi|
|00000570| 74 68 2d 64 65 72 65 66 | 65 72 65 6e 63 65 64 2d |th-deref|erenced-|
|00000580| 68 61 6e 64 6c 65 73 20 | 28 28 54 45 53 63 72 61 |handles |((TEScra|
|00000590| 70 5f 70 20 54 45 53 63 | 72 61 70 5f 68 29 29 0d |p_p TESc|rap_h)).|
|000005a0| 20 20 20 20 20 20 28 23 | 5f 50 75 74 53 63 72 61 |      (#|_PutScra|
|000005b0| 70 20 28 25 67 65 74 2d | 75 6e 73 69 67 6e 65 64 |p (%get-|unsigned|
|000005c0| 2d 77 6f 72 64 20 28 25 | 69 6e 74 2d 74 6f 2d 70 |-word (%|int-to-p|
|000005d0| 74 72 20 23 24 54 45 53 | 63 72 70 4c 65 6e 67 74 |tr #$TES|crpLengt|
|000005e0| 68 29 29 20 22 54 45 58 | 54 22 20 54 45 53 63 72 |h)) "TEX|T" TEScr|
|000005f0| 61 70 5f 70 29 29 29 29 | 0d 0d 28 64 65 66 74 72 |ap_p))))|..(deftr|
|00000600| 61 70 2d 4e 6f 74 49 6e | 52 4f 4d 20 5f 53 65 74 |ap-NotIn|ROM _Set|
|00000610| 57 6f 72 64 42 72 65 61 | 6b 20 3a 6e 6f 6e 65 20 |WordBrea|k :none |
|00000620| 28 28 77 42 72 6b 50 72 | 6f 63 20 3a 50 72 6f 63 |((wBrkPr|oc :Proc|
|00000630| 50 74 72 29 20 28 68 54 | 45 20 3a 54 45 48 61 6e |Ptr) (hT|E :TEHan|
|00000640| 64 6c 65 29 29 0d 20 20 | 28 73 65 74 66 20 28 68 |dle)).  |(setf (h|
|00000650| 72 65 66 20 68 54 45 20 | 3a 54 45 52 65 63 2e 77 |ref hTE |:TERec.w|
|00000660| 6f 72 64 42 72 65 61 6b | 29 20 77 42 72 6b 50 72 |ordBreak|) wBrkPr|
|00000670| 6f 63 29 29 0d 0d 28 64 | 65 66 74 72 61 70 2d 4e |oc))..(d|eftrap-N|
|00000680| 6f 74 49 6e 52 4f 4d 20 | 5f 53 65 74 43 6c 69 6b |otInROM |_SetClik|
|00000690| 4c 6f 6f 70 20 3a 6e 6f | 6e 65 20 28 28 63 6c 69 |Loop :no|ne ((cli|
|000006a0| 6b 50 72 6f 63 20 3a 50 | 72 6f 63 50 74 72 29 20 |kProc :P|rocPtr) |
|000006b0| 28 68 54 45 20 3a 54 45 | 48 61 6e 64 6c 65 29 29 |(hTE :TE|Handle))|
|000006c0| 0d 20 20 28 73 65 74 66 | 20 28 68 72 65 66 20 68 |.  (setf| (href h|
|000006d0| 54 45 20 3a 54 45 52 65 | 63 2e 63 6c 69 6b 4c 6f |TE :TERe|c.clikLo|
|000006e0| 6f 70 29 20 63 6c 69 6b | 50 72 6f 63 29 29 00 00 |op) clik|Proc))..|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 01 68 | 00 00 00 68 00 00 00 52 |.......h|...h...R|
|00000710| 00 00 18 ac 0f 53 6f 75 | 6e 64 49 6e 70 75 74 2e |.....Sou|ndInput.|
|00000720| 6c 69 73 70 02 00 00 00 | 54 45 58 54 43 43 4c 32 |lisp....|TEXTCCL2|
|00000730| 0e 2b 54 65 78 74 45 64 | 69 74 2e 6c 69 73 70 2b |.+TextEd|it.lisp+|
|00000740| 02 00 00 00 54 45 58 54 | 43 43 4c 32 01 00 00 3c |....TEXT|CCL2...<|
|00000750| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 3c 00 c0 |..TEXTCC|L2...<..|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 a5 b4 7c 2e 00 00 | 06 6e 00 00 01 ba 00 00 |....|...|.n......|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 17 00 00 00 18 ac |........|........|
|00000790| 11 53 54 41 4e 44 41 52 | 44 46 49 4c 45 2e 6c 69 |.STANDAR|DFILE.li|
|000007a0| 73 70 02 00 00 00 54 45 | 58 54 43 43 4c 32 01 00 |sp....TE|XTCCL2..|
|000007b0| 03 74 00 c0 00 00 00 00 | 18 fa 00 00 00 00 23 23 |.t......|......##|
|000007c0| 00 00 28 00 00 00 00 00 | 00 00 00 00 00 00 a3 d2 |..(.....|........|
|000007d0| ff 68 a4 34 d4 43 00 00 | 00 00 00 00 00 00 00 00 |.h.4.C..|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 82 38 00 05 |........|.....8..|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00000810| 00 0a 00 00 07 43 6f 75 | 72 69 65 72 00 00 00 48 |.....Cou|rier...H|
|00000820| 00 0a 43 6f 75 72 69 65 | 72 00 00 00 00 00 00 00 |..Courie|r.......|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 06 00 08 00 d6 | 02 54 02 b5 04 76 00 d6 |........|.T...v..|
|00000850| 02 54 02 b5 04 76 00 00 | 00 00 00 00 05 f4 00 00 |.T...v..|........|
|00000860| 05 f4 00 00 00 00 01 00 | 00 00 01 00 00 00 01 68 |........|.......h|
|00000870| 00 00 00 68 00 00 00 52 | 00 c8 22 ec 09 8e 00 00 |...h...R|..".....|
|00000880| 00 1c 00 52 00 01 46 52 | 45 44 00 01 00 12 4d 50 |...R..FR|ED....MP|
|00000890| 53 52 00 00 00 2a 00 02 | ff ff 00 00 00 00 00 00 |SR...*..|........|
|000008a0| 00 00 00 03 ff ff 00 00 | 00 0e 00 00 00 00 03 ed |........|........|
|000008b0| ff ff 00 00 00 1c 00 c9 | 01 a0 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+